home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / OPAQUETY.DEF < prev    next >
Text File  |  1989-01-18  |  604b  |  21 lines
  1.                                    (* Chapter 13 - Program 7 *)
  2. DEFINITION MODULE OpaqueType;
  3.  
  4.    EXPORT QUALIFIED BoxType, MakeBox, Volume, Area;
  5.  
  6.    TYPE BoxType; (* Opaque type, defined in implementation module *)
  7.  
  8.  
  9.              (* This procedure creates and initializes a box *)
  10.    PROCEDURE MakeBox(Length, Width, Height : CARDINAL) : BoxType;
  11.  
  12.  
  13.              (* This procedure returns the volume of a box *)
  14.    PROCEDURE Volume(Box : BoxType) : CARDINAL;
  15.  
  16.  
  17.              (* This procedure returns the Area of a box *)
  18.    PROCEDURE Area(Box : BoxType) : CARDINAL;
  19.  
  20. END OpaqueType.
  21.